A.C.E. 2/ACE CD 2.iso/FILES/UTILS/AMOSCOMP.DMS/in.adf/Scrolling_text_demo.AMOS/Scrolling_text_demo.amosSourceCode

AMOS Source Code | 1993-02-25 | 5.2 KB | 162 lines

CL0SE_ALL
SCR0LLY_TEXT
Procedure SCR0LLY_TEXT
   Dim X(46),Y(46),X2(46),Y2(46),SIZE(46)
   SC$="OH DEAR A BORING SCROLL........ HOW ABOUT THIS!!!!! WELCOME TO THE AMOS SCROLLY DEMO....."
   SC$=SC$+" THIS IS A SIMPLE DEMO SHOWING HOW PROFESSIONAL EFFECTS CAN BE ACHIEVED WITH ONLY A LITTLE WORK."
   SC$=SC$+" THE TOP SCROLL IS SIMPLY A DIRECT COPY OF THE BOTTOM SCROLL, THIS CAN BE DONE IN AMOS WITHOUT USING ANY MORE MEMORY!"
   SC$=SC$+" YOU COULD ADAPT THIS PROGRAM TO PRODUCE SCROLLING TITLES FOR YOUR HOME MOVIES OR YOUR LATEST MEGA GAME."
   SC$=SC$+" AS WITH ALL SCROLLY DEMOS A LIST OF GREETINGS MUST BE PREVALENT SO HERE GOES -------"
   SC$=SC$+" HI TO PETER LEE (HOPE LIFE AT AMIGA ACTION IS GOOD), NICK HARPER (ENJOY THE USA), RICK (DANGEROUS) VANNER, FRANCOIS (AMAZING) LIONET, MARC (FUN SCHOOL - ARRRGGHHH - 4) DAWSON,"
   SC$=SC$+" SANDRA (L.P.D. A.P.D. C.D.T.V. V.A.T. P.O.O.L.) SHARKEY, THE REST OF THE SHARKEY CLAN, AARON (GO OUT AND BUY TOME) FOTHERGILL,"
   SC$=SC$+" GARY (I LOVE C) SYMONS, TERRY (CAN I HAVE SOME SOURCE CODE?) MANCEY, RICHARD (3D BALLS) GALE, STOO AND VIN, WILLIAM (WIRLY) COCHRANE, STEPHEN (GREAT BOOK ON THE WAY) HILL,"
   SC$=SC$+" AND FINALLY THE REST OF THE BUNCH AT DATABASE. IF YOU ARE WATCHING THIS IN A SHOP OR AT A FRIENDS HOUSE THEN GO OUT AND BUY AMOS"
   SC$=SC$+"..... IT IS AMAZING!                                   "
   Unpack 8 To 2
   Screen Hide 2
   Erase 8
   Unpack 7 To 6
   Screen Hide 6
   Erase 7
   Autoback 0
   Palette $0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
   WSET[200-Timer]
   Screen Show 6
   Fade 2,$0,$13,$225,$C,$447,$558,$33C,$669,$55D,$77A,$77D,$88B,$99D,$BBC,$CCE,$EEE
   Wait 20
   Fade 3,$0,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF
   Wait 20
   Fade 3,$0,$13,$225,$C,$447,$558,$33C,$669,$55D,$77A,$77D,$88B,$99D,$BBC,$CCE,$EEE
   Wait 30
   Screen Open 1,368,25,8,Lowres
   Curs Off : Flash Off : Cls 0 : Get Palette 2 : Hide On
   Double Buffer
   Autoback 0
   Screen Display 1,130,200,320,
   Screen Clone 7
   Screen Display 7,130,50,320,
   SCRL$="ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789(!):-., "
   Restore SCR0LLY_DATA
   For F=1 To 44
      Read TEMP$,X(F),Y(F),X2(F),Y2(F),SIZE(F)
   Next F
   ' find letter
   SP=5
   TEMP=Varptr(SC$)
   TEMP2=Len(SC$)
   Auto View Off
   Set Rainbow 1,0,200,"","",""
   Rainbow 1,0,44,200
   PLACE=2 : PLACE2=183
   Restore TEMP
   For LOP=1 To 15
      Read C
      Rain(1,PLACE)=C
      Rain(1,PLACE+1)=C
      Rain(1,PLACE2)=C
      Rain(1,PLACE2+1)=C
      Add PLACE,2
      Add PLACE2,-2
      Wait Vbl : View
   Next LOP
   Auto View On
   TEMP:
   Data $100,$200,$300,$400,$500,$600,$700,$800,$900,$A00,$B00,$C00,$D00,$E00,$F00
   Wait Vbl : View
   Screen 6 : Wait Vbl
   For LOP=0 To TEMP2-1
      If LOP=50 Then Fade 3,,,,,,,,,,,,,,,,,$0,$0,$A0,$2B2,$4C4,$6C6,$9D9,$CEC,$FFF,$FFF,$CEC,$9D9,$6C6,$4C4,$2B2,$A0
      If LOP=60 Then Shift Up 1,16,31,1
      CNUM=Instr(SCRL$,Chr$(Peek(TEMP+LOP)))
      Screen Copy 2,X(CNUM),Y(CNUM),X2(CNUM),Y2(CNUM)+1 To 1,320,0
      For LOP1=1 To SIZE(CNUM) Step SP
         Screen Swap
         Wait Vbl
         Screen Copy Physic(1),0,0,368,40 To Logic(1),-SP,0
      Next LOP1
   Next LOP
   PLACE=2 : PLACE2=182
   For LOP=1 To 15
      Rain(1,PLACE)=$0
      Rain(1,PLACE+1)=$0
      Rain(1,PLACE2)=$0
      Rain(1,PLACE2+1)=$0
      Add PLACE,2
      Add PLACE2,-2
      Wait Vbl : View
   Next LOP
   Wait 10
   Shift Off
   Wait Vbl
   Fade 3,,,,,,,,,,,,,,,,,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
   Wait 50
   Rainbow Del 1
   Y=77 : X=320
   For LOP=120 To 1 Step -2
      Add Y,1
      Screen Display 6,,Y,,LOP
      Wait Vbl
   Next LOP
   '   Screen Close 6
   '  Screen Close 2
   ' Screen Close 1
   'Screen Close 7
   CL0SE_ALL
   SCR0LLY_DATA:
   Data "A",1,1,31,25,32
   Data "B",34,1,64,25,32
   Data "C",67,1,97,25,32
   Data "D",100,1,130,25,32
   Data "E",133,1,163,25,32
   Data "F",166,1,196,25,32
   Data "G",199,1,229,25,32
   Data "H",232,1,262,25,32
   Data "I",265,1,276,25,12
   Data "J",1,27,31,51,32
   Data "K",34,27,64,51,32
   Data "L",67,27,97,51,32
   Data "M",100,27,130,51,32
   Data "N",133,27,163,51,32
   Data "O",166,27,196,51,32
   Data "P",199,27,229,51,32
   Data "Q",232,27,262,51,32
   Data "R",265,27,295,51,32
   Data "S",1,53,31,77,32
   Data "T",34,53,64,77,32
   Data "U",67,53,97,77,32
   Data "V",100,53,130,77,32
   Data "W",133,53,163,77,32
   Data "X",166,53,196,77,32
   Data "Y",199,53,229,77,32
   Data "Z",232,53,262,77,32
   Data "0",1,79,29,103,32
   Data "1",32,79,46,103,32
   Data "2",49,79,77,103,32
   Data "3",80,79,108,103,32
   Data "4",111,79,139,103,32
   Data "5",142,79,171,103,32
   Data "6",174,79,202,103,32
   Data "7",205,79,233,103,32
   Data "8",236,79,264,103,32
   Data "9",267,79,295,103,32
   Data "(",1,105,16,129,14
   Data "!",19,105,29,129,12
   Data ")",32,105,47,129,14
   Data ":",50,105,60,129,12
   Data "-",63,105,93,129,32
   Data ".",96,105,106,129,12
   Data ",",109,105,119,129,12
   Data " ",1,170,20,199,19
End Proc
Procedure WSET[T]
   Timer=0
   Clear Key
   Repeat
      TEMP1=Asc(Inkey$)
   Until Mouse Key<>0 or TEMP1<>0 or Timer=>T
End Proc
Procedure CL0SE_ALL
   While Screen<>-1
      Screen Close Screen
   Wend
End Proc